module Mod_MARphy_data

use Mod_Real
	
	implicit none


      real(kind=real8),parameter :: Ra_dry =287.0596700000000                    ! R : Perfect Gas Law  Constant          / dry Air (J/kg/K)
      real(kind=real8),parameter :: Cpadry =1004.7088450000000                     ! Cp: Specific Heat at constant pressure / dry Air (J/kg/K)
      real(kind=real8),parameter :: EarthR =6371.229                    ! R : Earth         Radius                             (km)
      real(kind=real8),parameter :: Gforce =9.81000000000000                    ! g : gravitational force                            (m/s2)
      real(kind=real8),parameter :: Robert =0.01                    !     Robert Time Filter Parameter                      (-)
      real(kind=real8),parameter ::   epsi =0.00000100000000                    !     Arbitrary   small  Number                         (-)

      real(kind=real8) :: pi
      real(kind=real8) :: Ra_Cpa                     !        R / Cp
      real(kind=real8) :: p0_RCp                     ! 100.**(R / Cp)
      real(kind=real8) :: g__inv                     !        1 / g
      real(kind=real8) :: dg2rad                     !(degrees -> radians) conversion factor


      integer,          dimension(0:12)  ::  njmoGE=(/0,31,28,31,30, 31, 30, 31, 31, 30, 31, 30, 31/)
	  integer,          dimension(0:12)  ::  njmbGE=(/0, 0, 1, 0, 0,  0,  0,  0,  0,  0,  0,  0,  0/)
	  integer,          dimension(0:12)  ::  njyrGE=(/0, 0,31,59,90,120,151,181,212,243,273,304,334/)
	  integer,          dimension(0:12)  ::  njybGE=(/0, 0, 0, 1, 1,  1,  1,  1,  1,  1,  1,  1,  1/)
!      character(len=3), dimension(0:12)  ::  labmGE=(/'---','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'/)
	 character(len=3)  ::  labmGE(13)=(/'---','Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'/)
      character(len=1), dimension(0:09)  ::  labnum=(/'0','1','2','3','4','5','6','7','8','9'/)

end
